.TITLE	DLTBL
	.IDENT	/01.05/

;
; Copyright (c) 1995-1999 by Mentec, Inc., U.S.A.
; All rights reserved
;
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
; OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
; B. S. MCCARTHY 5-MAY-84
;
;
; MODIFIED BY:
;
;	J. R. KAUFFMAN		1-MAY-84	01.01
;
;		JRK298 -- ADD ENHANCED DEFINITIONS TO DRLOG TABLES
;
;	T. LEKAS		11-JULY-84	01.02
;
;		TL301 -- ADD PARSE/MERGE FUNCTIONS
;
;	J. R. KAUFFMAN		1-MAY-85	01.04
;
;		JRK303 -- ADD TABLE NUMBER HASHING FOR P/OS COMPATIBILITY
;
;	J. R. KAUFFMAN		24-MAY-85	01.05
;
;		JRK307 -- ADD ADDITIONAL LOGICAL DIRECTIVES FOR P/OS
;
; LOGICAL NAME DIRECTIVES DISPATCH TABLES
;
; THIS MODULE WAS SEPARATED FORM QITBL TO FACILITATE PLACEMENT IN
; THE FOURTH DIRECTIVE COMMON WITH DRLOG.
;
	.PAGE
									

	.IF DF	L$$GCL

	.MCALL	LNMDF$		;DEFINE LOGICAL NAME SUBFUNCTION FLAG BITS

	LNMDF$

	.ENDC	;DF L$$GCL


	.MACRO	LNSFN	ADDR,DPBSIZ,DIRCOM,COND

	.IF NB	COND

	.IF DF	COND
	.WORD	ADDR
	.BYTE	DPBSIZ
	.BYTE	DIRCOM
	.IFF
	.BLKW	2
	.ENDC	;DF COND

	.IFF

	.BLKW	2

	.ENDC	;NB COND
	.ENDM
	.PAGE

;+
; SUBFUNCTION DISPATCH TABLE FOR THE LOGICAL NAME DIRECTIVES
;-

	.IF DF	L$$GCL

$LSTLG::.WORD	0		;STORAGE WORD FOR LAST LNB IN LOOKUP CHAIN
$LTBUF::.BLKB	8.		;STORAGE BUFFER FOR DEVICE MNEMONIC AND BINARY
				;   UNIT CONVERSION TO AND FROM ASCII
$LGBUF::.BLKW	12.		;STORAGE AREA FOR CREATE DESCRIPTOR BLOCK


;+
; LOGICAL NAME OFFSET TABLE FOR TRANSLATION ATTEMPTS
;-

$LTMSK::.BYTE	LT.TSK		;TASK TABLE
	.BYTE	LT.USR		;USER TABLE (FOR P/OS COMPATIBILITY)
	.BYTE	LT.SES		;SESSION TABLE
	.BYTE	LT.GRP		;GROUP TABLE
	.BYTE	LT.SYS		;SYSTEM TABLE

$MSKBT::.BYTE	1
	.BYTE	2
	.BYTE	20
	.BYTE	4
	.BYTE	10
	.BYTE	40
	.BYTE	100
	.BYTE	200

$TRANL::.BYTE	LT.SYS
	.BYTE	LT.GRP
	.BYTE	4			;LT.USR (FOR P/OS) COMPATIBILITY
	.BYTE	LT.TSK
	.BYTE	2			;LT.SES - RSX LOCAL/LOGIN TABLE
	.EVEN

	.ENDC	;DF L$$GCL

;+
; SUBFUNCTION TABLE FOR ALL DIRECTIVE ROUTINES ACCESSED THROUGH DRLOG
;-

	.IF DF	L$$GCL!N$$DIR

$LNSFT::
	LNSFN	$LNFCL,7,3,L$$GCL	;CLOG$ - P/OS COMPATIBLE
	LNSFN	$LNFTL,9.,3,L$$GCL	;TLOG$ - OLD P/OS COMPATIBLE
	LNSFN	$LNDEL,5,3,L$$GCL	;DLOG$ - P/OS COMPATIBLE
	LNSFN	$LNFSD,5,3,N$$DIR	;SDIR$
	LNSFN	$LNFGD,6.,3,N$$DIR	;GDIR$
	LNSFN	$LNFSS,7.,4,L$$GCL	;FSS$
	LNSFN	$LNCHN,5.,4,L$$GCL	;ACHN$
	LNSFN	$LNRMS,13.,4,L$$GCL	;PRMS$
	LNSFN	$LNFCS,13.,4,L$$GCL	;PFCS$
	LNSFN	$LNFTL,10.,3,L$$GCL	;TLOG$ - NEW P/OS COMPATIBLE
	LNSFN	$LNFTL,10.,3,L$$GCL	;RLOG$ - P/OS COMPATIBLE
	LNSFN	$LNFCL,7,3,L$$GCL	;CLON$
	LNSFN	$LNDEL,5,3,L$$GCL	;DLON$
	LNSFN	$LNFTL,10.,3,L$$GCL	;TLON$
	LNSFN	$LNFTL,10.,3,L$$GCL	;RLON$

$LNFHI==<<.-$LNSFT>/4.>-1.	;DEFINE HIGHEST LOGICAL NAME SUBFUNCTION

	.ENDC	;DF N$$DIR!L$$GCL
									
	.END